home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_387 / megafish / tools / mf-rexxscripts / mfs.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-15  |  2KB  |  114 lines
  1. /*$VER: MFS.rexx v0.1 (03.10.94)
  2.  
  3.  MFS.rexx  - (W) 1993-1994 by Stephan Bülling
  4.  MFS.rexx  - (C) 1993-1994 by Mega/Soft Ltd.
  5.  
  6.       Bei regelmäßiger Benutzung des ARexx Scrips
  7.      ist an den Autor ein PM (Brief) zu entrichten
  8.  
  9.  EMail   : rubberduck@blanker.ruhr.de
  10.            rubberduck@sid.anubis.sub.de
  11.  
  12.             MailBox : +49 231 815739
  13.             MailBox : +49 231 448496
  14. */
  15. IF ~SHOW('LIBRARIES','rexxtricks.library') THEN;
  16. IF ~ADDLIB('rexxtricks.library',0,-30,0) THEN;EXIT(10)
  17. open(Config,"ENV:MegaFish.def",R);
  18. mfpfad = Readln(Config);
  19. syntax = Readln(Config)
  20.  as = Readln(Config);
  21.  s0 = Readln(Config);
  22.  s1 = Readln(Config);
  23.  s2 = Readln(Config);
  24.  s3 = Readln(Config);
  25.  s4 = Readln(Config);
  26.  s5 = Readln(Config);
  27.  s6 = Readln(Config);
  28.  s7 = Readln(Config);
  29.  s8 = Readln(Config);
  30.  s9 = Readln(Config);
  31.  s10 = Readln(Config)
  32.  s11 = Readln(Config);
  33.  s12 = Readln(Config);
  34.  s13 = Readln(Config);
  35.  s14 = Readln(Config);
  36.  s15 = Readln(Config);
  37.  s16 = Readln(Config);
  38.  s17 = Readln(Config);
  39.  s18 = Readln(Config);
  40.  s19 = Readln(Config);
  41.  s20 = Readln(Config);
  42.  s21 = Readln(Config);
  43.  s22 = Readln(Config);
  44.  s23 = Readln(Config);
  45.  s24 = Readln(Config);
  46.  s25 = Readln(Config);
  47.  s26 = Readln(Config);
  48.  s27 = Readln(Config);
  49.  s28 = Readln(Config);
  50.  s29 = Readln(Config);
  51.  s30 = Readln(Config);
  52. Close(Config);
  53. start:
  54. serien=''as''
  55. liste.count = ''serien''
  56.  liste.0  = ''s0'';
  57.  liste.1  = ''s1'';
  58.  liste.2  = ''s2'';
  59.  liste.3  = ''s3'';
  60.  liste.4  = ''s4'';
  61.  liste.5  = ''s5'';
  62.  liste.6  = ''s6'';
  63.  liste.7  = ''s7'';
  64.  liste.8  = ''s8'';
  65.  liste.9  = ''s9'';
  66.  liste.10 = ''s10'';
  67.  liste.11 = ''s11'';
  68.  liste.12 = ''s12'';
  69.  liste.13 = ''s13'';
  70.  liste.14 = ''s14'';
  71.  liste.15 = ''s15'';
  72.  liste.16 = ''s16'';
  73.  liste.17 = ''s17'';
  74.  liste.18 = ''s18'';
  75.  liste.19 = ''s19'';
  76.  liste.20 = ''s20'';
  77.  liste.21 = ''s21'';
  78.  liste.22 = ''s22'';
  79.  liste.23 = ''s23'';
  80.  liste.24 = ''s24'';
  81.  liste.25 = ''s25'';
  82.  liste.26 = ''s26'';
  83.  liste.27 = ''s27'';
  84.  liste.28 = ''s28'';
  85.  liste.29 = ''s29'';
  86.  liste.30 = ''s30'';
  87. fenster.title = 'Welche Serie Laden ?';
  88. fenster.postext = '_Laden';
  89. fenster.pubscreen = 'MFISH';
  90. fenster.font = 'SCREEN';
  91. fenster.sort = 'TRUE';
  92.  
  93. IF VIEWLIST('liste','fenster','var') THEN DO;
  94.   DO i = 0 TO var.count-1
  95.  if Show(P,'MFISH') then;
  96.    CALL port1
  97.   ELSE
  98.    CALL port2
  99.  END
  100.  
  101. port1:
  102.   ADDRESS 'MFISH';
  103.   OPENDIR var.i
  104. Exit
  105.  
  106. port2:
  107.   ADDRESS COMMAND ''mfpfad' 'syntax' FROM "'var.i'"'
  108.   Call start
  109.  END
  110.  
  111. BREAK_C:
  112. Exit
  113.  
  114.